home *** CD-ROM | disk | FTP | other *** search
/ The Arsenal Files 8 / The Arsenal Files Collection #8 (Arsenal Computer) (1996).ISO / gen_bbs / revup10.zip / REVUP.MEC < prev    next >
INI File  |  1996-11-08  |  11KB  |  304 lines
  1. [comment
  2.  
  3.                               REVUP Version 1.0
  4.                         Review Upload for Maximus 3.x
  5.                      Copyright (c) 1996 by John Medland
  6.         PHOTO 334 BBS! Toronto, Canada (416) 539-9591 FidoNet 1:250/840
  7.                       john.medland@photo334.tor250.org
  8.  
  9. ]
  10. [ifexist]misc\revuppok.bbs [delete]misc\revuppok.bbs
  11. [ifexist]misc\revup.edr [ifexist]misc\revup.plg [ifexist]misc\revup.msg [goto ok]
  12. [cls lf]            [white]Rev[fg lightblue]iew [fg white]Up[fg lightblue]load [fg white]v1.0
  13.  [grey on black]─[blue]──────────────────────────────────────[grey on black]─[white]
  14. [lf goto setup][/ok][islocal grey]Use file selector? [white][[Y,n] [menu]|yn
  15. [islocal choice]|[goto sel]
  16. [islocal choice]Y[goto sel]
  17. [islocal]
  18. [lightblue]`[white]R[lightblue]' lists Raw directory
  19. [/again lf grey]Search log for which [WHITE]FILE[white]: [ansopt readln]
  20. [ifentered]r [menu_cmd File_raw]
  21. [ifentered]r [goto again]
  22. [ifentered]  [cls quit]
  23. [link]misc\revup.plg
  24. [key_poke] %J
  25. [readln]
  26.  
  27. [up up dos]misc\revup.bat %Q %J COM%P
  28. [goto postsel]
  29. [/sel][link]misc\revup.plg
  30. [readln]
  31.  
  32. [up up dos]misc\revup.bat %Q %J fpick COM%P %K
  33. [/postsel][pause ifexist]misc\revuptmp.bat [goto go]
  34. [delete]misc\revup.cfg
  35. [delete]misc\revup.fil
  36. [delete]misc\revuppok.bbs
  37. [lf][grey link]misc\revup.dat
  38. [delete]misc\revup.dat
  39. [pause][cls quit]
  40. [/go cls]
  41.             [white]Rev[fg lightblue]iew [fg white]Up[fg lightblue]load [fg white]v1.0
  42.  [grey on black]─[blue]──────────────────────────────────────[grey on black]─[white]
  43. [cyan][link]misc\revup.dat
  44. [delete]misc\revup.tmp
  45. [delete]misc\revuptmp.bat
  46.  [grey on black]─[blue]──────────────────────────────────────[grey on black]─[white]
  47. [ifexist]misc\revup.non [goto isdat]
  48.     [white]E[lightgrey])[grey]dit user           [white]M[lightgrey])[grey]essage
  49. [/isdat][link]misc\revup.fil [readln]
  50. [ifexist]%F%J [white]    C[lightgrey])[grey]ontents            [white]K[lightgrey])[grey]ill file
  51. [ifexist]misc\revuppok.bbs [white]    L[lightgrey])[grey]ocate              [white]H[lightgrey])[grey]istory[lf goto lq]
  52.     [white]L[lightgrey])[grey]ocate
  53. [/lq]    [white]N[lightgrey])[grey]ew search          [white]S[lightgrey])[grey]etup
  54. [islocal]    [white]U[lightgrey])[grey]pload log          [white]Q[lightgrey])[grey]uit
  55. [isremote]    [white]Q[lightgrey])[grey]uit
  56.  
  57. [ifexist]misc\revup.non [ifexist]%F%J  [lightgrey on blue] [white]Select: [ansreq][menu]kcnsuql|
  58. [ifexist]misc\revup.non [ifexist]%F%J [goto incurr]
  59. [ifexist]misc\revup.non  [lightgrey on blue] [white]Select: [ansreq][menu]nsuql|
  60. [ifexist]misc\revup.non [goto incurr]
  61. [ifexist]%F%J  [lightgrey on blue] [white]Select: [ansreq][menu]ehkmcnsuql|
  62. [ifexist]%F%J [goto incurr]
  63.   [lightgrey on blue] [white]Select: [ansreq][menu]eahmnsuql|
  64. [/incurr][choice]|[cls goto go]
  65. [choice]c[key_poke]%J
  66. [choice]c[cls menu_cmd file_contents]
  67. [choice]c[lf enter goto go]
  68. [choice]d[mex]misc\revup.vm
  69. [choice]d[goto go]
  70. [choice]h[goto userfil]
  71. [choice]k[goto delfil]
  72. [choice]l[key_poke]%J
  73. [choice]l[menu_cmd file_locate]
  74. [choice]l[lf enter goto go]
  75. [choice]n[delete]misc\revup.cfg
  76. [choice]n[delete]misc\revup.fil
  77. [choice]n[delete]misc\revup.cnt
  78. [choice]n[delete]misc\revup.dat
  79. [choice]n[delete]misc\revup.bak
  80. [choice]n[delete]misc\revup.siz
  81. [choice]n[delete]misc\revuppok.bbs
  82. [choice]n[delete]misc\revup.non [top]
  83. [choice]m[goto mess]
  84. [choice]q[delete]misc\revup.cfg
  85. [choice]q[delete]misc\revup.fil
  86. [choice]q[delete]misc\revup.cnt
  87. [choice]q[delete]misc\revup.dat
  88. [choice]q[delete]misc\revup.bak
  89. [choice]q[delete]misc\revup.siz
  90. [choice]q[delete]misc\revuppok.bbs
  91. [choice]q[delete]misc\revup.non [cls quit]
  92. [choice]s[lf goto setup]
  93. [choice]u[isremote goto go]
  94. [choice]u[ifexist]misc\revup.edr [link]misc\revup.plg [readln]
  95. [choice]u[ifexist]misc\revup.edr [cls link]misc\revup.edr [goto go]
  96. [choice]u[lf goto setup]
  97. [moreoff][key_poke]~
  98. [link]misc\revuppok.bbs
  99. [Menu_cmd User_editor]
  100. [goto go]
  101. [/mess][ifexist]misc\revup.txt [delete]misc\revup.txt
  102. [colour ifexist]%F%J [up cleol up cleol]
  103. [endcolour moreoff up cleol up cleol up cleol up cleol up cleol up cleol blue]  [bg grey]            Message Options           [white]
  104.  
  105.     [white]A[lightgrey])[grey]pproved            [white]B[lightgrey])[grey]onus
  106.     [white]F[lightgrey])[grey]ailed              [white]P[lightgrey])[grey]irate
  107.     [white]G[lightgrey])[grey]ame                [white]O[lightgrey])[grey]ther
  108.     [white]V[lightgrey])[grey]ersion             [white]U[lightgrey])[grey]narchived
  109. [islocal]    [white]C[lightgrey])[grey]ustom              [white]Q[lightgrey])[grey]uit
  110. [isremote]    [white]Q[lightgrey])[grey]uit
  111.  
  112. [islocal] [lightgrey on blue] [white]Select: [menu]abupgfoqca|v
  113. [isremote] [lightgrey on blue] [white]Select: [menu]abupgfoqa|v
  114. [choice]|[cls goto go]
  115. [choice]q[cls goto go]
  116. [open]misc\revup.txt
  117. [choice]b[goto bonus]
  118. [choice]u[goto nonarc]
  119. [choice]p[goto pirated]
  120. [choice]g[goto game]
  121. [choice]f[goto integ]
  122. [choice]v[goto oldver]
  123. [choice]a[goto approved]
  124. [choice]o[goto alloth]
  125. [choice]c[goto custom]
  126.  
  127. [/bonus]
  128. [open]nul:
  129. [link]misc\revup.siz
  130. [readln]
  131. [open]misc\revup.txt
  132. [write]Thank you for the file.
  133. [write]
  134. [write]You receive a 100%% bonus %J for this upload.
  135. [write]
  136. [goto all]
  137.  
  138. [/nonarc]
  139. [write]Your upload ignores our upload guidelines.
  140. [write]
  141. [write]We do not accept UNARCHIVED uploads.
  142. [write]
  143. [goto all]
  144.  
  145. [/pirated]
  146. [write]Your upload ignores our upload guidelines.
  147. [write]
  148. [write]We do not accept PIRATED software.
  149. [write]
  150. [goto all]
  151.  
  152. [/game]
  153. [write]Your upload ignores our upload guidelines.
  154. [write]
  155. [write]We do not accept GAME uploads.
  156. [write]
  157. [goto all]
  158.  
  159. [/integ]
  160. [write]This archive has failed integrity testing.
  161. [write]
  162. [goto all]
  163.  
  164. [/alloth]
  165. [write]Your upload ignores our upload guidelines.
  166. [write]
  167. [write]We do not accept uploads of this kind.
  168. [write]
  169. [goto all]
  170.  
  171. [/oldver]
  172. [write]Your upload ignores our upload guidelines.
  173. [write]
  174. [write]This is an OLD VERSION of a file we already have.
  175. [write]
  176. [goto all]
  177.  
  178. [/approved]
  179. [open]nul:
  180. [link]misc\revup.siz
  181. [readln]
  182. [open]misc\revup.txt
  183. [write]This upload has been checked and approved.
  184. [write]
  185. [write]Your statistics have been updated %J.
  186. [write]
  187. [goto all]
  188.  
  189. [/custom][write] %J
  190. [open]nul:
  191. [key_poke]misc\revup.txt
  192. [readln]
  193. [cls][link]misc\revup.edr
  194.  
  195. [/all][cls lf open]nul:
  196. [white]From: [cyan][user]
  197. [link]misc\revuppok.bbs
  198. [readln]
  199.   [white]To: [cyan][response]
  200. [link]misc\revup.fil
  201. [readln]
  202. [white]Subj: [cyan][response]
  203. [lf lightcyan link]misc\revup.txt
  204. [islocal lf white]S[grey]end, [white]E[grey]dit text or [white]Q[grey]uit? [white][[S,e,q] [clear_stacked menu]|Seq
  205. [isremote lf white]S[grey]end or [white]Q[grey]uit? [white][[S,q] [clear_stacked menu]|Sq
  206. [choice]q[delete]misc\revup.txt [goto go]
  207. [islocal choice]e[key_poke]misc\revup.txt
  208. [islocal choice]e[readln]
  209. [islocal choice]e[link]misc\revup.edr
  210. [islocal choice]e[goto all]
  211. [link]misc\revup.msg   [readln]
  212. [open]misc\revupmsg.bat
  213. [write]@echo off
  214. [write]cd misc
  215. [write]if %s==NLN echo FROM: %S >> revup.cfg
  216. [write]if %s==NLN goto nln
  217. [write]echo AREA: %J >> revup.cfg
  218. [write]echo FROM: %n>> revup.cfg
  219. [write]:nln
  220. [write]msgpost -Trevup.txt -Crevup.cfg -Pp -K
  221. [write]if errorlevel 1 goto :badmsg
  222. [write]goto :end
  223. [write]:badmsg
  224. [write]echo bad message>revupmsg.ng
  225. [write]:end
  226. [open]nul:
  227. [cls][dos]misc\revupmsg.bat
  228. [delete]misc\revupmsg.bat
  229. [ifexist]misc\revupmsg.ng [goto badmsg]
  230. [locate 12 33][white]Message sent![pause]
  231. [cls goto go]
  232. [/badmsg]
  233. [delete]misc\revupmsg.ng
  234. [locate 12 26][white]ERROR! Message was not sent.
  235. [locate 22 1][pause][enter]
  236. [cls goto go]
  237. [/delfil][ifexist]misc\revup.fil [link]misc\revup.fil
  238. [ifexist]misc\revup.fil [menu]abcdefghijklmnopqrstuvwxyz1234567890`-=\~!@#$&*()_+|}{":?><][[';/.,
  239. [ifexist]%Q\%C%R [goto okdel]
  240. [lf yellow]Not found in Area [magenta file_carea yellow]![pause][pause]
  241. [cls goto go]
  242. [/okdel]
  243. [link]misc\revup.fil
  244. [menu_cmd file_kill]
  245. [link]misc\revup.fil
  246. [menu]abcdefghijklmnopqrstuvwxyz1234567890`-=\~!@#$&*()_+|}{":?><][[';/.,
  247. [ifexist]%Q\%C%R [cls goto go]
  248. [cls goto go]
  249. [/setup][white]PATH\NAME [grey]of text editor?
  250. [grey](ENTER for `\dos\edit.com')[white]: [ansopt readln]
  251. [ifentered] [colour up right right right right right right right right right right right right right right right right right right right right right right right right right right right right right endcolour]\dos\edit.com
  252. [ifentered] [key_poke]\dos\edit.com
  253. [ifentered] [readln]
  254. [ifexist]%J [goto oked]
  255. [ifentered]q [ifexist]misc\revup.edr [ifexist]misc\revup.plg [ifexist]misc\revup.msg [goto go]
  256. [ifentered]q [lf]Program is not setup.[pause].[pause].[pause][quit]
  257. Program not found![pause][pause]
  258. [moreoff][up cleol][up cleol][up cleol][goto setup]
  259. [/oked]
  260. [delete]misc\revup.edr
  261. [open]misc\revup.edr
  262. [write][dos]%J %%J
  263. [open]nul:
  264. [/logset]PATH\NAME [grey]of upload log?
  265. [grey](ENTER for `\max\ul.log')[white]: [ansopt readln]
  266. [ifentered] [colour up right right right right right right right right right right right right right right right right right right right right right right right right right right right endcolour]\max\ul.log
  267. [ifentered] [key_poke]\max\ul.log
  268. [ifentered] [readln]
  269. [ifexist]%J [goto oklog]
  270. File not found![pause][pause]
  271. [moreoff][up cleol][up cleol][up cleol][goto logset]
  272. [/oklog][delete]misc\revup.plg
  273. [open]misc\revup.plg
  274. [write][key_poke]%J
  275. [open]nul:
  276.  
  277. [/msgset][white]PATH\NAME [grey]of Squish message area?
  278. [grey](ENTER for `\max\msg\private')[white]: [ansopt readln]
  279. [ifentered] [colour up right right right right right right right right right right right right right right right right right right right right right right right right right right right right right right right right endcolour]\max\msg\private
  280. [ifentered] [key_poke]\max\msg\private
  281. [ifentered] [readln]
  282. [ifexist]%J.sqd [goto okmsg]
  283. Message area not found![pause][pause]
  284. [moreoff][up cleol up cleol][up cleol][goto msgset]
  285. [/okmsg][delete]misc\revup.msg
  286. [open]misc\revup.msg
  287. [write][key_poke]$%J
  288. [open]nul:
  289. [pause pause]
  290. [ifexist]misc\revup.fil [goto go]
  291. [top]
  292. [/userfil][link]misc\revup.plg
  293. [readln]
  294. [open]misc\revupusr.bbs
  295. [write][dos]type %J |find /I "%%J UL">misc\revupusr.rpt
  296. [open]nul:
  297. [link]misc\revuppok.bbs
  298. [readln]
  299. [cls][grey]Searching for uploads from [white][response][grey]...[link]misc\revupusr.bbs
  300. [delete]misc\revupusr.bbs
  301. [lf lightcyan moreon link]misc\revupusr.rpt
  302. [delete]misc\revupusr.rpt
  303. [lf white][enter][goto go]
  304.